inherited frmGruposAcesso: TfrmGruposAcesso
  Left = 192
  Top = 140
  Caption = 'Cadastro de Grupos de Acesso'
  ClientHeight = 404
  ClientWidth = 525
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 367
    Width = 525
  end
  inherited Panel2: TPanel
    Width = 525
    Height = 367
    inherited Panel3: TPanel
      Width = 523
      Caption = 'Grupos de Acesso'
      inherited GroupBox1: TGroupBox
        Left = 444
      end
    end
    inherited Panel4: TPanel
      Width = 523
      Height = 325
      object Label1: TLabel [0]
        Left = 16
        Top = 16
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
        FocusControl = DBEdit1
      end
      object Label2: TLabel [1]
        Left = 16
        Top = 56
        Width = 48
        Height = 13
        Caption = 'Descri'#231#227'o'
        FocusControl = DBEdit2
      end
      inherited DBGrid1: TDBGrid
        Top = 108
        Width = 515
      end
      inherited SbHints: TStatusBar
        Top = 302
        Width = 515
      end
      object DBEdit1: TDBEdit
        Left = 16
        Top = 32
        Width = 134
        Height = 21
        DataField = 'GRU_CODIGO'
        DataSource = DtSrc
        TabOrder = 2
      end
      object DBEdit2: TDBEdit
        Left = 16
        Top = 72
        Width = 394
        Height = 21
        DataField = 'GRU_DESCRICAO'
        DataSource = DtSrc
        TabOrder = 3
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_GRUPOS
    Left = 264
    Top = 237
  end
  inherited DtSrcDBGrid: TDataSource
    Left = 384
    Top = 240
  end
  object SQLC_GRUPOS: TSQLClientDataSet
    CommandText = 
      'select GRU_CODIGO, GRU_DESCRICAO from GRUPOS'#13#10'where GRU_CODIGO =' +
      ' :GRU_CODIGO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'GRU_CODIGO'
        ParamType = ptInput
      end>
    AfterInsert = SQLC_GRUPOSAfterInsert
    DBConnection = DtmGeral.ConexaoBanco
    Left = 385
    Top = 289
    object SQLC_GRUPOSGRU_CODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'GRU_CODIGO'
      Required = True
    end
    object SQLC_GRUPOSGRU_DESCRICAO: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'GRU_DESCRICAO'
      Required = True
      Size = 30
    end
  end
end
